Pairwise Spearman correlations
allsamples_blast_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/allsamples/blast/partial_corr_out_median/", approaches, suffix = ".pairwise.tsv")
allsamples_ranger_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/allsamples/rangerdtl/partial_corr_out_median/", approaches, suffix = ".pairwise.tsv")
allsamples_clusterbased_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/allsamples/clusterbased/partial_corr_out_median/", approaches, suffix = ".pairwise.tsv")
freeliv_blast_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/blast/partial_corr_out_median/", approaches, suffix = "_freeliv.pairwise.tsv")
freeliv_ranger_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/rangerdtl/partial_corr_out_median/", approaches, suffix = "_freeliv.pairwise.tsv")
# freeliv_clusterbased_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/clusterbased/partial_corr_out_median/", approaches, suffix = "_freeliv.pairwise.tsv")
lessfiltered_blast_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/blast/partial_corr_out_median/", approaches, suffix = "_lessfiltered.pairwise.tsv")
lessfiltered_ranger_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/rangerdtl/partial_corr_out_median/", approaches, suffix = "_lessfiltered.pairwise.tsv")
# lessfiltered_clusterbased_pairwise_in <- read_in_pairwise("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/clusterbased/partial_corr_out_median/", approaches, suffix = "_lessfiltered.pairwise.tsv")
BLAST all samples results

RANGER all samples results

Cluster-based all samples results

BLAST free-living results

RANGER-DTL free-living results

BLAST less-filtered results

RANGER-DTL less-filtered results

Partial Spearman correlations
blast_allsamples <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/allsamples/blast/partial_corr_out_median/", "both_gene_count", approaches)
ranger_allsamples <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/allsamples/rangerdtl/partial_corr_out_median/", "ranger_hgt_tallies", approaches)
blast_freeliv <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/blast/partial_corr_out_median/", "both_gene_count", paste(approaches, "freeliv", sep = '_'))
ranger_freeliv <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/rangerdtl/partial_corr_out_median/", "ranger_hgt_tallies", paste(approaches, "freeliv", sep = '_'))
blast_lessfiltered <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/blast/partial_corr_out_median/", "both_gene_count", paste(approaches, "lessfiltered", sep = '_'))
ranger_lessfiltered <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/rangerdtl/partial_corr_out_median/", "ranger_hgt_tallies", paste(approaches, "lessfiltered", sep = '_'))
clusterbased_allsamples <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/allsamples/clusterbased/partial_corr_out_median/", "both_gene_count", approaches)
# clusterbased_freeliv <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/clusterbased/partial_corr_out_median/", "both_gene_count", paste(approaches, "freeliv", sep = '_'))
# clusterbased_lessfiltered <- read_partial_corr_output("/mfs/gdouglas/projects/ocean_mags/networks/filtersplit/clusterbased/partial_corr_out_median/", "both_gene_count", paste(approaches, "lessfiltered", sep = '_'))
BLAST all samples

RANGER all samples

Cluster-based all samples

BLAST free-living

RANGER free-living

BLAST less-filtered

RANGER less-filtered
